﻿
Imports OpenTK.Graphics.OpenGL
Imports System.IO


Public Class Suelo
    Private localmR As OGL
    Public Sub New(ByVal paramWorldRenderer As OGL)
    End Sub

    Public Overridable Sub draw()
        Dim arrayOfInt1() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim arrayOfInt2() As Integer = {65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536, 65536}
        'tengo que ver la forma de carga en una matrix para luego leer nomas no carga cada lectura
        Dim rows As Integer = 2400
        Dim columns As Integer = 2400
        Dim gril As Double = 25
        GL.ClearColor(255, 255, 255, 0)
        GL.Begin(BeginMode.Lines)
        GL.Color4(0.0F, 0.0F, 0.0F, 0.1F)
        ' Horizontal lines. 
        For i = -rows To rows Step gril
            GL.Vertex2(-columns, i)
            GL.Vertex2(columns, i)
        Next i
        ' Vertical lines. 
        For i = -columns To columns Step gril
            GL.Vertex2(i, -rows)
            GL.Vertex2(i, rows)
        Next i
        GL.End()


    End Sub
End Class